home *** CD-ROM | disk | FTP | other *** search
/ Interplay's Learn to Program Basic (Review Copy) / Learn to Program Basic Review Copy (Interplay)(June 23, 1998).ISO / pc / ltpbasic / refxmpl / true.bas < prev    next >
BASIC Source File  |  1998-04-07  |  272b  |  16 lines
  1. CLS
  2. antics = TRUE
  3. Banner "Press any key to quit the on-screen antics"
  4. While antics
  5. Let randcolor = Random(1,255)
  6. Let X1 = Random(1,160)
  7. Let Y1 = Random (1, 120)
  8. Let X2 = X1*2
  9. Let Y2 = Y1*2
  10. Color randcolor
  11. Line X1,Y1 To X2, Y2
  12. If Inkey$ <> "" Then antics = FALSE
  13. Wend
  14. CLS
  15.  
  16.